home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / chkmstr / prtsum.prg < prev    next >
Text File  |  1990-03-05  |  11KB  |  429 lines
  1. CLOSE DATABASE
  2. STORE 0 TO LP,REXCF,ECB,ACCTNUM,VALU,BC,AC,CC,DC,EC,FC,GC,HC,REXCT,;
  3. STATS2,REXCA,STATS,B03ST,REXDT,REXDF,ERROR,REXSEQ,REXDA,REXA,B11T,;
  4. B13T,B14T,BT,CTP,ACTDB,ACTEB,ACTFB,ACTGB,ACTHB,ACB,BCB,CCB,DCB,;
  5. CTB,GTB,ASUM,BSUM,DSUM,ESUM,FSUM,CSUM,ISUM,DPS,DEPSUM
  6. RELEASE RETYEAR
  7. PUBLIC RETYEAR
  8. RETYEAR= "    "
  9. DONE= "  "
  10. IF ARCYEAR <> MYEAR
  11. ARC= "1"
  12. RTYV=ARCYEAR
  13. MYEAR=ARCYEAR
  14. DVCE=0
  15. RETYEAR=STR(ARCYEAR,4)
  16. ELSE
  17. CLEAR
  18. @10,27 SAY "    ENTER { DATE } YOU WISH TO"
  19. @11,27 SAY "    PRINT ACCOUNT SUMMARY OF:"
  20. @13,27 SAY "LEAVE MONTH BLANK FOR ENTIRE YEAR !"
  21. @14,27 SAY "    { MONTH }" GET DONE
  22. @15,27 SAY "    { YEAR  }" GET RETYEAR
  23. READ
  24. DVCE=VAL("&DONE")
  25. RTYV=VAL("&RETYEAR")
  26. ENDIF
  27. DO WHILE .T.
  28. DO CASE
  29. CASE MYEAR-RTYV=0
  30. IF LP=0
  31. CLEAR
  32. @10,10 SAY "COMPUTING ACCOUNT CODE SUMMARIES FOR"
  33. @11,10 SAY "CLEARED CHECKS FOR DATE { "+DONE+"  "+RETYEAR+" } --------------"
  34. USE CHKBKUP INDEX CBATNM
  35. ELSE
  36. CLEAR
  37. @10,10 SAY "COMPUTING ACCOUNT CODE SUMMARIES FOR"
  38. @11,10 SAY "UNCLEARED CHECKS FOR DATE { "+DONE+"  "+RETYEAR+" } ------------"
  39. USE CHEXREG INDEX CKATNM
  40. ENDIF
  41. CASE MYEAR-RTYV=1
  42. IF LP=0
  43. CLEAR
  44. @10,10 SAY "COMPUTING ACCOUNT CODE SUMMARIES FOR"
  45. @11,10 SAY "CLEARED CHECKS FOR DATE { "+DONE+"  "+RETYEAR+" } --------------"
  46. USE CHKBKUP INDEX CBATNM
  47. ELSE
  48. CLEAR
  49. @10,10 SAY "COMPUTING ACCOUNT CODE SUMMARIES FROM"
  50. @11,10 SAY "ARCHIVE REGISTER FOR DATE { "+DONE+"  "+RETYEAR+" } -------------"
  51. USE CHKARC INDEX CKARNM
  52. ENDIF
  53. CASE MYEAR-RTYV>1
  54. CLEAR
  55. @10,10 SAY "COMPUTING ACCOUNT CODE SUMMARIES FROM"
  56. @11,10 SAY "ARCHIVE REGISTER FOR DATE { "+DONE+"  "+RETYEAR+" } -------------"
  57. USE CHKARC INDEX CKARNM
  58. ENDCASE
  59. DELETE FOR YEAR(DATE) <> RTYV
  60. IF DVCE >0
  61. DELETE FOR MONTH(DATE) <> DVCE
  62. ENDIF
  63. SUM AMOUNT FOR ACCT_CODE = 'A00' TO A00S
  64. SUM AMOUNT FOR ACCT_CODE = 'A01' TO A01S
  65. SUM AMOUNT FOR ACCT_CODE = 'A02' TO A02S
  66. SUM AMOUNT FOR ACCT_CODE = 'A03' TO A03S
  67. SUM AMOUNT FOR ACCT_CODE = 'A04' TO A04S
  68. SUM AMOUNT FOR ACCT_CODE = 'A05' TO A05S
  69. SUM AMOUNT FOR ACCT_CODE = 'A06' TO A06S
  70. SUM AMOUNT FOR ACCT_CODE = 'A07' TO A07S
  71. SUM AMOUNT FOR ACCT_CODE = 'A08' TO A08S
  72. SUM AMOUNT FOR ACCT_CODE = 'A09' TO A09S
  73. SUM AMOUNT FOR ACCT_CODE = 'A10' TO A10S
  74. SUM AMOUNT FOR ACCT_CODE = 'A11' TO A11S
  75. SUM AMOUNT FOR ACCT_CODE = 'A12' TO A12S
  76. SUM AMOUNT FOR ACCT_CODE = 'B00' TO B00S
  77. SUM AMOUNT FOR ACCT_CODE = 'B01' TO B01S
  78. SUM AMOUNT FOR ACCT_CODE = 'B02' TO B02S
  79. SUM AMOUNT FOR ACCT_CODE = 'B03' TO B03S
  80. SUM AMOUNT FOR ACCT_CODE = 'B04' TO B04S
  81. SUM AMOUNT FOR ACCT_CODE = 'B05' TO B05S
  82. SUM AMOUNT FOR ACCT_CODE = 'B06' TO B06S
  83. SUM AMOUNT FOR ACCT_CODE = 'B07' TO B07S
  84. SUM AMOUNT FOR ACCT_CODE = 'B08' TO B08S
  85. SUM AMOUNT FOR ACCT_CODE = 'B09' TO B09S
  86. SUM AMOUNT FOR ACCT_CODE = 'B10' TO B10S
  87. SUM AMOUNT FOR ACCT_CODE = 'B11' TO B11S
  88. SUM AMOUNT FOR ACCT_CODE = 'B12' TO B12S
  89. SUM AMOUNT FOR ACCT_CODE = 'B13' TO B13S
  90. SUM AMOUNT FOR ACCT_CODE = 'B14' TO B14S
  91. SUM AMOUNT FOR ACCT_CODE = 'D00' TO D00S
  92. SUM AMOUNT FOR ACCT_CODE = 'D01' TO D01S
  93. SUM AMOUNT FOR ACCT_CODE = 'D02' TO D02S
  94. SUM AMOUNT FOR ACCT_CODE = 'E00' TO E00S
  95. SUM AMOUNT FOR ACCT_CODE = 'E01' TO E01S
  96. SUM AMOUNT FOR ACCT_CODE = 'E02' TO E02S
  97. SUM AMOUNT FOR ACCT_CODE = 'F00' TO F00S
  98. SUM AMOUNT FOR ACCT_CODE = 'F01' TO F01S
  99. SUM AMOUNT FOR ACCT_CODE = 'F02' TO F02S
  100. SUM AMOUNT FOR ACCT_CODE = 'A' TO ATS
  101. SUM AMOUNT FOR ACCT_CODE = 'B' TO BTS
  102. SUM AMOUNT FOR ACCT_CODE = 'C' TO CTS
  103. SUM AMOUNT FOR ACCT_CODE = 'D' TO DTS
  104. SUM AMOUNT FOR ACCT_CODE = 'E' TO ETS
  105. SUM AMOUNT FOR ACCT_CODE = 'F' TO FTS
  106. SUM AMOUNT FOR ACCT_CODE = 'G' TO GTS
  107. SUM AMOUNT FOR ACCT_CODE = 'H' TO HTS
  108. SUM AMOUNT FOR ACCT_CODE = 'I' TO ITS
  109. PRT_TOT=ASUM+BSUM+CSUM+DSUM+ESUM+FSUM+CTB+GTB+ISUM
  110. DO CASE
  111. CASE MYEAR-RTYV<=1
  112. IF LP=0
  113. LP=1
  114. SET DELETED OFF
  115. RECALL ALL
  116. SET DELETED ON
  117. LOOP
  118. ENDIF
  119. SET DELETED OFF
  120. RECALL ALL
  121. SET DELETED ON
  122. EXIT
  123. CASE MYEAR-RTYV>1
  124. SET DELETED OFF
  125. RECALL ALL
  126. SET DELETED ON
  127. EXIT
  128. ENDCASE
  129. ENDDO
  130. LP=0
  131. DO WHILE .T.
  132. DO CASE
  133. CASE MYEAR-RTYV=0
  134. IF LP=0
  135. CLEAR
  136. @10,10 SAY "COMPUTING DEPOSIT TOTAL FOR CLEARED DEPOSITS"
  137. @11,10 SAY "FOR YEAR { "+DONE  +RETYEAR+" } --------------------------"
  138. USE DEPBKUP INDEX DBKAMT
  139. ELSE
  140. CLEAR
  141. @10,10 SAY " COMPUTING DEPOSIT TOTAL FOR UNCLEARED DEPOSITS"
  142. @11,10 SAY "FOR YEAR { "+DONE+"  "+RETYEAR+" } -------------------------"
  143. USE DEPREG INDEX DEPAMT
  144. ENDIF
  145. CASE MYEAR-RTYV=1
  146. IF LP=0
  147. CLEAR
  148. @10,10 SAY "COMPUTING DEPOSIT TOTAL FOR CLEARED DEPOSITS"
  149. @11,10 SAY "FOR YEAR { "+DONE+"  "+RETYEAR+" } -------------------------"
  150. USE DEPBKUP INDEX DBKAMT
  151. ELSE
  152. CLEAR
  153. @10,10 SAY "COMPUTING DEPOSIT TOTAL FOR ARCHIVE DEPOSITS"
  154. @11,10 SAY "FOR YEAR { "+DONE+"  "+RETYEAR+" } ------------------------"
  155. USE DEPARC INDEX DARAMT
  156. ENDIF
  157. CASE MYEAR-RTYV>1
  158. CLEAR
  159. @10,10 SAY "COMPUTING DEPOSIT TOTAL FOR ARCHIVE DEPOSITS"
  160. @11,10 SAY "FOR YEAR { "+DONE+"  "+RETYEAR+" } -----------------------"
  161. USE DEPARC INDEX DARAMT
  162. ENDCASE
  163. DELETE FOR YEAR(DATE) <> RTYV
  164. IF DVCE >0
  165. DELETE FOR MONTH(DATE) <> DVCE
  166. ENDIF
  167. SUM AMOUNT TO DPS
  168. DEPSUM = DEPSUM+DPS
  169. DO CASE
  170. CASE MYEAR-RTYV<=1
  171. IF LP=0
  172. LP=1
  173. SET DELETED OFF
  174. RECALL ALL
  175. SET DELETED ON
  176. LOOP
  177. ENDIF
  178. SET DELETED OFF
  179. RECALL ALL
  180. SET DELETED ON
  181. EXIT
  182. CASE MYEAR-RTYV>1
  183. SET DELETED OFF
  184. RECALL ALL
  185. SET DELETED ON
  186. EXIT
  187. ENDCASE
  188. ENDDO
  189. CLEAR
  190. @10,10 SAY "PRINTING ACCOUNT SUMMARIES FOR DATE { "+DONE+"  "+RETYEAR+" }."
  191. SET DEVICE TO PRINT
  192. @1,10 SAY "SUMMARY OF CHECK TOTALS BY ACCOUNT CODE"
  193. @2,10 SAY "         FOR DATE { "+DONE+"  "+RETYEAR+" }"
  194. @3,10 SAY "RUN   " + DTOC(MDATE)
  195. @3,30 SAY "TODAY IS   " + CDOW(MDATE)
  196. @5,10 SAY "   TOTAL OF DEPOSITS          $$ " +STR(DEPSUM,8,2)
  197. @6,10 SAY "TOTAL OF CHECKS WRITTEN       $$ " +STR(PRT_TOT,8,2)
  198. @8,10 SAY "MISC. ACCOUNT { A }     $$ " + STR(REXCF,7,2)
  199. @9,10 SAY A01 + "  $$ " + STR(ECB,7,2)
  200. @10,10 SAY A02 + "  $$ " + STR(ACCTNUM,7,2)
  201. @11,10 SAY A03 + "  $$ " + STR(VALU,7,2)
  202. @12,10 SAY A04 + "  $$ " + STR(BC,7,2)
  203. @13,10 SAY A05 + "  $$ " + STR(AC,7,2)
  204. @14,10 SAY A06 + "  $$ " + STR(CC,7,2)
  205. @15,10 SAY A07 + "  $$ " + STR(DC,7,2)
  206. @16,10 SAY A08 + "  $$ " + STR(EC,7,2)
  207. @17,10 SAY A09 + "  $$ " + STR(FC,7,2)
  208. @18,10 SAY A10 + "  $$ " + STR(GC,7,2)
  209. @19,10 SAY A11 + "  $$ " + STR(HC,7,2)
  210. @20,10 SAY A12 + "  $$ " + STR(REXCT,7,2)
  211. @22,10 SAY "MISC. ACCOUNT { B }     $$ " + STR(STATS2,7,2)
  212. @23,10 SAY B01 + "  $$ " + STR(REXCA,7,2)
  213. @24,10 SAY B02 + "  $$ " + STR(STATS,7,2)
  214. @25,10 SAY B03 + "  $$ " + STR(B03ST,7,2)
  215. @26,10 SAY B04 + "  $$ " + STR(REXDT,7,2)
  216. @27,10 SAY B05 + "  $$ " + STR(REXDF,7,2)
  217. @28,10 SAY B06 + "  $$ " + STR(ERROR,7,2)
  218. @29,10 SAY B07 + "  $$ " + STR(REXSEQ,7,2)
  219. @30,10 SAY B08 + "  $$ " + STR(REXDA,7,2)
  220. @31,10 SAY B09 + "  $$ " + STR(REXA,7,2)
  221. @32,10 SAY B10 + "  $$ " + STR(B11T,7,2)
  222. @33,10 SAY B11 + "  $$ " + STR(BT,7,2)
  223. @34,10 SAY B12 + "  $$ " + STR(CTP,7,2)
  224. @35,10 SAY B13 + "  $$ " + STR(B13T,7,2)
  225. @36,10 SAY B14 + "  $$ " + STR(B14T,7,2)
  226. @38,10 SAY "MISC. ACCOUNT { D }     $$ " + STR(ACTDB,7,2)
  227. @39,10 SAY D01 + "  $$ " + STR(ACTEB,7,2)
  228. @40,10 SAY D02 + "  $$ " + STR(ACTFB,7,2)
  229. @42,10 SAY "MISC. ACCOUNT { E }     $$ " + STR(ACTGB,7,2)
  230. @43,10 SAY E01 + "  $$ " + STR(ACTHB,7,2)
  231. @44,10 SAY E02 + "  $$ " + STR(ACB,7,2)
  232. @46,10 SAY "MISC. ACCOUNT { F }     $$ " + STR(BCB,7,2)
  233. @47,10 SAY F01 + "  $$ " + STR(CCB,7,2)
  234. @48,10 SAY F02 + "  $$ " + STR(DCB,7,2)
  235. @50,10 SAY A + "  $$ " + STR(ASUM,7,2)
  236. @51,10 SAY B + "  $$ " + STR(BSUM,7,2)
  237. @52,10 SAY C + "  $$ " + STR(CSUM,7,2)
  238. @53,10 SAY D + "  $$ " + STR(DSUM,7,2)
  239. @54,10 SAY E + "  $$ " + STR(ESUM,7,2)
  240. @55,10 SAY F + "  $$ " + STR(FSUM,7,2)
  241. @56,10 SAY G + "  $$ " + STR(CTB,7,2)
  242. @57,10 SAY H + "  $$ " + STR(GTB,7,2)
  243. @58,10 SAY I + "  $$ " + STR(ISUM,7,2)
  244. EJECT
  245. SET DEVICE TO SCREEN
  246. IF ARC= "1"
  247. PRTC= "1"
  248. DO CSUMRY
  249. CRUN=CRUN+CNTOT
  250. CLEAR
  251. @10,23 SAY "NOW TRANSFERRING CHECK AND DEPOSIT"
  252. @12,23 SAY "  REGISTERS TO BACK-UP FILE !!"
  253. SELECT A
  254. USE CHKBKUP INDEX CBATNM,CHBKPT,CKBKSQ
  255. SELECT B
  256. USE CHKARC INDEX CKARNM,CHARPT,CKARSQ
  257. SELECT C
  258. USE DEPBKUP INDEX DBKAMT
  259. SELECT D
  260. USE DEPARC INDEX DARAMT
  261. SELECT CHKBKUP
  262. GO TOP
  263. DO WHILE .NOT.EOF()
  264. REXSEQ=SEQ_NO
  265. PAYM=PAY_TO
  266. REXA=AMOUNT
  267. REXD=DATE
  268. NOTEM=NOTE
  269. ACCTM=ACCT_CODE
  270. CKARC=CKARC+AMOUNT
  271. SELECT CHKARC
  272. APPE